10 REM - 'SAVE ML/4' USING KERNAL ROM ROUTINES. ELAINE 12/95
20 IFFTHEN110
30 A=53280:POKEA,1:POKEA+1,1:POKE646,6:PRINTCHR$(142)"[147]SAVING MACHINE LANGUAGE FROM MEMORY:
50 [153]"(1) ML IS TO BE SAVED FROM MEMORY":[153]"(2) ML ON DISK IS TO BE COPIED
70 GOSUB240:ONAGOTO160,80:GOTO70
80 NA$="LOAD":GOSUB250:OPEN2,8,2,F$:GET#2,BH$,BH$:N$=CHR$(0)
90 BL=ASC(BL$+N$):BH=ASC(BH$+N$):PRINT#2:CLOSE2:F=1:LOADF$,8,1
110 EL=PEEK(174):EH=PEEK(175):PRINT"DO YOU WISH TO MODIFY THIS PRG?":GOSUB240:IFA$="Y"THEN270
130 NA$="SAVE":GOSUB250:PRINT"OK. INSERT DESTINATION DISK AND PRESS
140 [153]"ANY KEY TO CONTINUE":[141]240:[137]210
160 NA$[178]"SAVE":[141]250:[133]"BEGINNING ADDRESS";BA$:[139]BA$[178]"*"[167][128]
170 BA[178][197](BA$):BH[178][181](BA[173]256):BL[178]BA[171](BH[172]256)
180 [133]"ACTUAL ENDING ADDRESS";EA$:[139]EA$[178]"*"[167][128]
190 EA[178][197](EA$):EA[178]EA[170]1:EH[178][181](EA[173]256):EL[178]EA[171](EH[172]256):[151]174,EL:[151]175,EH
210 [151]193,BL:[151]194,BH:[158]57812F$,8:[158]62954:[159]15,8,15:[132]15,E,FF$,G,H:[160]15:[153]""FF$:[128]
240 [146]198,1:[161]A$:A[178][197](A$):[142]
250 [153]"(* TO EXIT)":[153]"FILENAME TO "NA$;:[133]F$:[139]F$[178]""[176]F$[178]"*"[167][128]
260 [142]
270 [153]"OK. FOR THIS PRG":[153]"BA ="BL[170]256[172]BH"AND EA+1 ="EL[170]256[172]EH
280 [153]"PRG IS IN MEMORY AT THOSE LOCATIONS.
290 PRINT"MAKE MODIFICATIONS AND RERUN THIS PRG